perm filename FOO.SEX[HAL,HE] blob sn#239553 filedate 1976-09-27 generic text, type T, neo UTF8
(PR
  (BL
    (TVAR BLK1 BLK1_GRASP BLK1_TOP BLK2 BLK2_GRASP FINPLACE)
    (SVAR GRASPHEIGHT BLK1LENGTH BLK2LENGTH BLK1WIDTH BLK2WIDTH BLK1HEIGHT)
    (RVAR STAND)
    (AS STAND
      (AXW_ROTN YHAT  180.0000    )
    )
    (AS BLK1WIDTH
       1.500000    
    )
    (AS BLK2WIDTH
       1.500000    
    )
    (AS BLK1LENGTH
       2.500000    
    )
    (AS BLK2LENGTH
       2.500000    
    )
    (AS BLK1HEIGHT
       2.000000    
    )
    (AS GRASPHEIGHT
       .7500000    
    )
    (AS BLK1
      (FMAKE NILROTN (VMAKE  10.00000      30.00000      .0000000    ))
    )
    (AS BLK2
      (FMAKE NILROTN (VMAKE  6.000000      30.00000      .0000000    ))
    )
    (AS FINPLACE
      (FMAKE NILROTN (VMAKE  8.000000      40.00000      .0000000    ))
    )
    (TVAR _T1)
    (AFFIX BLK1_GRASP BLK1 _T1
      (FMAKE STAND (VMAKE (SDIV BLK1LENGTH  2.000000    ) (SDIV BLK1WIDTH  2.000000    ) GRASPHEIGHT))
      RIGIDLY)
    (TVAR _T2)
    (AFFIX BLK1_TOP BLK1 _T2
      (FMAKE NILROTN (VMAKE  .0000000      .0000000     BLK1HEIGHT))
      RIGIDLY)
    (TVAR _T3)
    (AFFIX BLK2_GRASP BLK2 _T3
      (FMAKE STAND (VMAKE (SDIV BLK2LENGTH  2.000000    ) (SDIV BLK2WIDTH  2.000000    ) GRASPHEIGHT))
      RIGIDLY)
    (MO BARM
      BPARK
      ( DURATION = 3)
    )
    (MO BARM
      BLK1_GRASP
    )
    (TVAR _T4)
    (AFFIX BLK1 BARM _T4 () RIGIDLY)
    (MO BLK1
      FINPLACE
    )
    (UNFIX BLK1 BARM)
    (MO BARM
      BLK2_GRASP
    )
    (TVAR _T5)
    (AFFIX BLK2 BARM _T5 () RIGIDLY)
    (MO BLK2
      BLK1_TOP
    )
    (UNFIX BLK2 BARM)
    (MO BARM
      BPARK
    )
  )
)